<%
Set conn = Server.CreateObject("ADODB.Connection")
Set conn1 = Server.CreateObject("ADODB.Connection")
 'response.write (Server.MapPath(DBPath))
'response.end
'connstr="Provider=MS Remote; Remote Server=http://localhost/hotel/;Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\aspsource\zhuhaihostml\zhuhaihostml\lTop\top.mdb ,  admin ,  " 
' connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=http://localhost/hotel/lTop/top.mdb" 
  connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "  & Server.MapPath(DBPath)
'connstr="dsn=sz1111;uid=;pwd="
conn1.Open connstr1'"dsn=sz1111","uid=","pwd="'connstr
conn.open connstr1
sub closedb()
conn.close
conn1.close
set conn=nothing
end sub

 
%>
<!--#Include File="Neeao_SqlIn.Asp"-->


 
